Dvbbs8.1 0DAY(ͨɱAccessmssql汾

[Dvbbs8.1 0DAY(ͨɱAccessmssql汾) ȫ]
©ϵۻǺܿҵġϻ˵ˡ
UserPay.asp12-64

If Request("raction")="alipay_return" Then
  AliPay_Return()
  Dvbbs.Footer()
  Response.End
ElseIf Request("action")="alipay_return" Then
  AliPay_Return()
  Dvbbs.Footer()
  Response.End
''ElseIf Request("action")="Re_inmoney" Then
''  Re_inmoney()
''  Dvbbs.Footer()
''  Response.End
End If

ûύractionΪalipay_returnactionΪalipay_returnAliPay_Return()̡AliPay_Return()Ĵԭ329-351£

Sub AliPay_Return()
  If Dvbbs.Forum_ChanSetting(5) <> "0" Then
    AliPay_Return_Old()
    Exit sub
  Else
    Dim Rs,Order_No,EnCodeStr,UserInMoney
    order_No=Request("out_trade_no")
    Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=3 And O_PayCode=''"&Order_No&"''")
    If not(Rs.Eof And Rs.Bof) Then
      AliPay_Return_Old()
      Exit sub
    End if
    Response.Clear
    Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=0 And O_PayCode=''"&Order_No&"''")
    If Rs.Eof And Rs.Bof Then
      Response.Write "N"
    Else
      Response.Write "Y"
      Dvbbs.Execute("Update Dv_ChanOrders Set O_IsSuc=3 Where O_ID = " & Rs("O_ID"))
    End If
    Response.End
  End If
End Sub


Dvbbs.Forum_ChanSetting(5) <> "0" ִsql䣬ݿĬϵForum_ChanSettingɡ

1,1,0,0,pay@aspsky.net,0,b63uvb8nsvsmbsaxszgvdr6svyus0l4t,1,1,1,1,1,1,1,100,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Forum_ChanSetting(5)ȱʡΪ0ſͻЦ

order_No=Request("out_trade_no")
    Set Rs = Dvbbs.Execute("Select * From [Dv_ChanOrders] Where O_IsSuc=3 And O_PayCode=''"&Order_No&"''")

ֱӰѻȡOrder_Noŵsqlȥˡ
عһDVbbs8.0Userpay.aspͬһ

Sub AliPay_Return()
  If Dvbbs.Forum_ChanSetting(5) <> "0" Then
    AliPay_Return_Old()
  Else
    Response.Clear
    Dim Rs,Order_No,EnCodeStr,UserInMoney
    order_No = Dvbbs.CheckStr(Request("order_no"))
    Set Rs = Dvbbs.Execute("Select * From Dv_ChanOrders Where O_IsSuc=0 And O_PayCode = ''"&Order_No&"''")
    If Rs.Eof And Rs.Bof Then
      Response.Write "N"

ԿOrder_NoCheckStrˣsqlע©Ϊʲô°汾ֱӷأĪǱ
һ뾫Ĺȥƻֻͼȥ˵طȫ֤¿
(Ҫ¼)

http://www.tr4c3.com/UserPay.asp?raction=alipay_return&out_trade_no=1''

زԷͼʾ

 

 

㣬ɣôˡ:-)
ڱûصdvbb8.1sql汾Ҳȥң޷ж汾Ҳڸ©ѿ
¡
ȺӣľԹٷȷmssql汾Ҳܴ©Ӱ
